home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / FORMAT.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  483b  |  35 lines
  1. $INCLUDE "REGNAMES.INC"
  2. DEF SEG = &HD400
  3. CLS
  4. REG %AX,(&H1*256)+26
  5. CALL INTERRUPT &H0B
  6. janus=REG(%DI)
  7. IF janus<>-1 THEN
  8.  
  9. REG %AX,(&H17*256)+2
  10. CALL INTERRUPT &H13
  11.  
  12. spur=0
  13. seite=0
  14. POKE janus+0,spur
  15. POKE janus+1,seite
  16. POKE janus+2,0
  17. POKE janus+2,2
  18. REG %AX,(&H04*256)+1
  19. REG %DX,(seite*256)+0
  20. REG %CX,(spur*256)
  21. REG %ES,&HD400
  22. REG %BX,janus
  23. ?"Call"
  24. CALL INTERRUPT &H13
  25. ?"Okay"
  26. ?"AX=";INT(REG(%AX)/256)
  27.  
  28. ELSE
  29.  ?"JError Int 26"
  30. END IF
  31. ?"<< Taste >>"
  32. END
  33.  
  34.  
  35.